home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / sim.arc / DEMO.SRC < prev    next >
Encoding:
Text File  |  1987-04-07  |  3.1 KB  |  142 lines
  1. ' This is the demonstration Master Menu
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)                       ' no colour burst here, please
  6. border(black)                   ' and the darkest border possible
  7.  
  8. normal                          ' nice quick border
  9. foreground(yellow)+
  10. setattr
  11. box(0,0)-(79,24),"▒"
  12. fill(1,16),"▒",78               ' and division line
  13.  
  14. foreground(red+)                ' text border box
  15. blink on
  16. setattr
  17. box(19,18)-(60,20),"░"
  18.  
  19. normal                          ' set field colours
  20. foreground(white+)
  21. background(blue)
  22. settime
  23. setdate
  24. normal
  25. setstat
  26. inverse
  27. setargue
  28.  
  29. stat(65,23)                     ' set field positions
  30. argue(27,22,40)
  31. date(2,1)
  32. time(65,1)
  33.  
  34. normal
  35. foreground(yellow)
  36. setattr
  37. .(23,2)"████▒   ████▒  ███████▒  ██████▒"
  38. .(23,3)"█▒  █▒  █▒     █▒ █▒ █▒  █▒   █▒"
  39. .(23,4)"█▒  █▒  ████▒  █▒ █▒ █▒  █▒   █▒"
  40. .(23,5)"█▒  █▒  █▒     █▒ █▒ █▒  █▒   █▒"
  41. .(23,6)"████▒   ████▒  █▒ █▒ █▒  ██████▒"
  42.  
  43. foreground(green+)              ' another title
  44. setattr
  45. .(26,8)"The Available Options Are:"
  46.  
  47. option start                    ' actual OPTIONS
  48.  
  49. option(F1,13,10)" F1 - Help for Selections ","MENU DEMOHELP"
  50. option(F3,13,11)" F3 - Video Demonstration ","MENU VIDEODEM"
  51. option(F5,13,12)" F5 - Procedure Demonstration ","MENU PROCDEM"
  52. option(F7,13,13)" F7 - Security Demonstration ","MENU SECURDEM"
  53.  
  54. option(F2,45,10)" F2 - Create Menu ","MENU CREATE"
  55. option(F4,45,11)" F4 - USER menu ","MENU USER"
  56. option(F6,45,12)" F6 - Execute DOS Command ","\COMMAND.COM/C ",clear,argue,wait
  57. option(F8,45,13)" F8 - Return to DOS 2.00 ","EXIT"
  58.  
  59. option end
  60.  
  61. proc(F1,select)                 ' select procedure F1
  62. inverse
  63. setattr
  64. fill(20,19)," ",40
  65. .(20,19)" Give Help For Master Menu"
  66. normal
  67. setattr
  68. proc end
  69.  
  70. proc(F2,select)                 ' select procedure F2
  71. inverse
  72. setattr
  73. fill(20,19)," ",40
  74. .(20,19)" Create, Edit, & Convert Menus"
  75. normal
  76. setattr
  77. proc end
  78.  
  79. proc(F3,select)                 ' select procedure F3
  80. inverse
  81. setattr
  82. fill(20,19)," ",40
  83. .(20,19)" A Video Demonstration of SIMS"
  84. normal
  85. setattr
  86. proc end
  87.  
  88. proc(F4,select)                 ' select procedure F4
  89. inverse
  90. setattr
  91. fill(20,19)," ",40
  92. .(20,19)" Execute the USER Menu"
  93. normal
  94. setattr
  95. proc end
  96.  
  97. proc(F5,select)                 ' select procedure F5
  98. inverse
  99. setattr
  100. fill(20,19)," ",40
  101. .(20,19)" A Procedure Demonstration of SIMS"
  102. normal
  103. setattr
  104. proc end
  105.  
  106. proc(F6,select)                 ' select procedure F6
  107. inverse
  108. setattr
  109. fill(20,19)," ",40
  110. .(20,19)" Execute a DOS Command from SIMS"
  111. normal
  112. setattr
  113. proc end
  114.  
  115. proc(F7,select)                 ' select procedure F7
  116. inverse
  117. setattr
  118. fill(20,19)," ",40
  119. .(20,19)" A Security Demonstration of SIMS"
  120. normal
  121. setattr
  122. proc end
  123.  
  124. proc(F8,select)                 ' select procedure F8
  125. inverse
  126. setattr
  127. fill(20,19)," ",40
  128. .(20,19)" Return to DOS (EXIT)"
  129. normal
  130. setattr
  131. proc end
  132.  
  133. proc(F6,exec)                   ' exec procedure F6
  134. inverse
  135. setattr
  136. .(13,22)" DOS Command >"
  137. normal
  138. setattr
  139. proc end
  140.  
  141. end                             ' that's all folks
  142.